home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / hires text (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  794b  |  34 lines
  1. 0 rem the transactor volume 6 issue 02        bits & pieces section
  2. 5 rem save"@0:hires text",8
  3. 7 rem* text on hi-res screen *
  4. 8 rem* subroutine at 1000    *
  5. 10 clr:f=fre(0):dima((-65536*(f<0)+f)/5-10):clr
  6. 12 input"string to print";m$
  7. 15 print"[147]";
  8. 20 poke53265,peek(53265)or32
  9. 25 poke53272,peek(53272)or8
  10. 30 cx=10:cy=10
  11. 40 gosub2000 'print string "m$"
  12. 50 geta$:ifa$=""goto50
  13. 60 poke53265,27:poke53272,23
  14. 80 end
  15. 100 :
  16. 110 :
  17. 1000 rem* put text on hi-res screen *
  18. 1005 rom=13*4096+1024*(peek(53272)and2)
  19. 1010 c=asc(cc$): print"[147]";
  20. 1020 cc=c+64*(c>64andc<192)+128*(c>191)
  21. 1050 poke56334,peek(56334)and254
  22. 1060 poke1,peek(1)and251
  23. 1070 br=rom+cc*8:bs=8192+cy*320+cx*8
  24. 1080 for i=br to br+7:poke bs,peek(i)
  25. 1090 bs=bs+1:next
  26. 1100 poke1,peek(1)or4
  27. 1110 poke56334,peek(56334)or1
  28. 1120 return
  29. 1130 :
  30. 2000 rem print string to hi-res screen
  31. 2010 for j=1 to len(m$):cc$=mid$(m$,j,1)
  32. 2020 gosub1000 'char on hi-res screen
  33. 2030 cx=cx+1:next: return
  34.